home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 6-Apple⁄DEC Alliance / Solutions & Networking Guide / Macintosh Networking Guide / Macintosh Networking Guide / card_17871.txt < prev    next >
Text File  |  1990-04-17  |  6KB  |  301 lines
  1. -- card: 17871 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 14812
  5. -- name: LimitNet
  6.  
  7.  
  8. -- part 2 (field)
  9. -- low flags: 01
  10. -- high flags: 0002
  11. -- rect: left=0 top=21 right=133 bottom=109
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: Digital
  20.  
  21.  
  22. -- part 3 (field)
  23. -- low flags: 01
  24. -- high flags: 0002
  25. -- rect: left=110 top=21 right=133 bottom=219
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 9
  31. -- style flags: 0
  32. -- line height: 12
  33. -- part name: IBM
  34.  
  35.  
  36. -- part 4 (field)
  37. -- low flags: 01
  38. -- high flags: 0002
  39. -- rect: left=221 top=21 right=133 bottom=330
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 9
  45. -- style flags: 0
  46. -- line height: 12
  47. -- part name: Mac
  48.  
  49.  
  50. -- part 5 (field)
  51. -- low flags: 01
  52. -- high flags: 0002
  53. -- rect: left=331 top=21 right=133 bottom=440
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 9
  59. -- style flags: 0
  60. -- line height: 12
  61. -- part name: PC
  62.  
  63.  
  64. -- part 6 (field)
  65. -- low flags: 01
  66. -- high flags: 0002
  67. -- rect: left=0 top=134 right=246 bottom=109
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 3
  72. -- text size: 9
  73. -- style flags: 0
  74. -- line height: 12
  75. -- part name: Tandem
  76.  
  77.  
  78. -- part 7 (field)
  79. -- low flags: 01
  80. -- high flags: 0002
  81. -- rect: left=110 top=134 right=246 bottom=222
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 3
  86. -- text size: 9
  87. -- style flags: 0
  88. -- line height: 12
  89. -- part name: UNIX
  90.  
  91.  
  92. -- part 8 (field)
  93. -- low flags: 01
  94. -- high flags: 0002
  95. -- rect: left=221 top=134 right=246 bottom=330
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 9
  101. -- style flags: 0
  102. -- line height: 12
  103. -- part name: Wang
  104.  
  105.  
  106. -- part 9 (button)
  107. -- low flags: 00
  108. -- high flags: 0001
  109. -- rect: left=27 top=257 right=287 bottom=91
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 9301 / 9301
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: Previous
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   go prev card
  121. end mouseUp
  122.  
  123.  
  124.  
  125. -- part 11 (button)
  126. -- low flags: 00
  127. -- high flags: 0001
  128. -- rect: left=100 top=257 right=287 bottom=164
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 27009 / 27009
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: Previous
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   go next card
  140. end mouseUp
  141.  
  142.  
  143.  
  144. -- part 13 (button)
  145. -- low flags: 00
  146. -- high flags: 8003
  147. -- rect: left=209 top=265 right=292 bottom=301
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 1
  151. -- font id: 0
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: limitNet
  156. ----- HyperTalk script -----
  157. on mouseUp
  158.   repeat with i = 1 to 7
  159.     put empty into cd fld i
  160.   end repeat
  161.   limitNet
  162. end mouseUp
  163.  
  164. on limitNet
  165.   global holder,NH,netserves,name
  166.   set cursor to watch
  167.   repeat with i = 43 to 49
  168.     put short name of cd fld i of cd "Mac Grid" into name
  169.     put first word of name into name
  170.     get cd fld i of cd "Mac Grid"
  171.     put it into holder
  172.     if holder <> empty then
  173.       parse
  174.       put empty into netserves
  175.       repeat with i = 1 to the number of lines of NH
  176.         if netserves contains item 1 of line i of NH then
  177.           next repeat
  178.         else
  179.           put item 1 of line i of NH & return after netserves
  180.         end if
  181.       end repeat
  182.       put netserves into cd fld name
  183.     end if
  184.   end repeat
  185.   set cursor to hand
  186. end limitNet
  187.  
  188. parse
  189.  
  190. on parse
  191.   global holder,NH
  192.   put empty into NH
  193.   repeat with i = 1 to the number of lines of holder
  194.     put item 3 of line i of holder into dotnames
  195.     repeat
  196.       put offset("‚Ä¢",dotnames) into num
  197.       if num is empty or num is 0 then exit repeat
  198.       put char 1 to (num - 1) of dotnames & return after NH
  199.       delete char 1 to num of dotnames
  200.     end repeat
  201.   end repeat
  202. end parse
  203.  
  204.  
  205.  
  206. Digital
  207. IBM
  208. Mac
  209. PC
  210. Tandem
  211. UNIX
  212. Wang
  213. Communications
  214. Engineering/CAD
  215. Info Management
  216. Office Productivity
  217. Publishing
  218. Software Development
  219. Network Services
  220. Hardware
  221.  
  222. on mouseEnter
  223.   put "lists network services available for" & " each environment" into fld "Tell"
  224. end mouseEnter
  225.  
  226.  
  227. on mouseleave
  228.   put empty into fld "Tell"
  229. end mouseLeave
  230.  
  231.  
  232.  
  233.  
  234.  
  235. -- part contents for card part 2
  236. ----- text -----
  237. Development Tools
  238. Mail Service
  239. File Service
  240. File Transfer
  241. Print Service
  242. Terminal Emulation
  243. Translation
  244. Network Management
  245. Resource Sharing
  246.  
  247.  
  248. -- part contents for card part 3
  249. ----- text -----
  250. Development Tools
  251. File Service
  252. Terminal Emulation
  253. File Transfer
  254. Translation
  255. Network Management
  256.  
  257.  
  258. -- part contents for card part 4
  259. ----- text -----
  260. File Service
  261. File Transfer
  262. Print Service
  263. Development Tools
  264. Mail Service
  265. Terminal Emulation
  266. Translation
  267. Resource Sharing
  268. Network Management
  269.  
  270.  
  271. -- part contents for card part 5
  272. ----- text -----
  273. File Service
  274. File Transfer
  275. Print Service
  276. Translation
  277. Resource Sharing
  278. Network Management
  279. Terminal Emulation
  280.  
  281.  
  282. -- part contents for card part 6
  283. ----- text -----
  284. Print Service
  285. Network Management
  286. Terminal Emulation
  287. File Transfer
  288. Resource Sharing
  289.  
  290.  
  291. -- part contents for card part 7
  292. ----- text -----
  293. Development Tools
  294. File Service
  295. Mail Service
  296. File Transfer
  297. Terminal Emulation
  298. Network Management
  299. Resource Sharing
  300. Translation
  301.